
Beepquencer 

Non è un organo Hammond ma suona lo stesso, non è un sequencer 
Obcrheim ma ricorda anche lui le note.,. Cosa può essere? 

Ma il vostro ZX Speetrum con il nostro programma super. Musica maestro! 


V i ricordate il programmino dedi¬ 
cato allo ZX Speetrum chiamato 
Supercaratteri apparso proprio sul nu¬ 
mero delia prova dedicata a questo 
computer? Beh, vi avevamo promesso 
che sarebbe stato usato in altri pro¬ 
grammi come routine di utility... ebbene 
è arrivato finalmente il momento di riti¬ 
rar fuori la cassetta su cui lo avete regi¬ 
strato per utilizzarlo con questo partico¬ 
larissimo programma musicale. 

Se avete sviscerato il manuale dello 
ZX Speetrum avrete potuto apprezzare 
la funzione BEEP, dedicata alla genera¬ 
zione di note musicali, abbiamo pensato 
di rendere omaggio a questa particolare 
hinztone creando il programma Beep¬ 
quencer: in pratica si tratta di un 
sequencer computerizzato che utilizza 
come unica risorsa musicale la funzione 
Beep del vostro Speetrum. 

Si è tenuto in particolar conto il pos¬ 
sibile impiego nel campo della creazione 
musicale, specie nel campo della disco- 
music in cui le brevi sequenze ripetute 
sono proprio quelle di maggior resa. In 
pratica avete a disposizione una serie di 
cinque opzioni studiate apposta per 
rendervi facile la vita: la prima riguarda 
la fase più importante della vostra crea¬ 
zione musicale, la scrittura della se¬ 
quenza. À questo punto è necessario 
aprire una breve parentesi sulla nota¬ 
zione musicale: dovete sapere che a dif¬ 
ferenza dei paesi anglosassoni (in pra¬ 
tica il resto del mondo) in Italia usiamo 
una notazione in cui le note sono indi¬ 
cate con la prima sillaba di un antico 
canto gregoriano da cui è praticamente 
risultata la nostra scala Do, Re, Mi, Fa, 
Sul, La e Si, Se avete un po’ di spirito 
d’osservazione avrete notato che ab¬ 
biamo davanti una serie di gruppi di due 
lettere più uno dì tre. Il fatto che siano di 


IL PROGRAMMA 


5 r LEP Ff 3 1 2 © 3 L O OD "m "CODE 3 
2 2 5 tf. 

10 CLS 

20 LET xs=2: LET ys=5: LET 
4.0; INK 6- PAPER 0. LET d$ = , ’Bèep 
auencer’’: go sue 9998: ink 0 pp 
PER 7 

£1 FOP K =1 TO 3 

22 FOP j=l TO 20: BEEP .01,j; 

N E XT ì 

23 NEXT fc 

24- LET x' 3 = 2 : LET ys=4- ; LET u c = 
1.4.0; LET d$ = "© by 5. Ha jo echi”: 
GO SUB 9998 

POR K =1 TO 3: FOR j=ÌO TO 1 
ST6P -1: BEEP .01,j: NEXT J: NE 
XT K 

28 LET t=5 

30 CLS : CLS 

S0 PRINT RT 5,6;"SCR1UI La seq 
uenza l";RT 8,5;"ESEGUI La ìequ 
enza 2";RT 11,5 ;"mostra La sequ 
enza 3";BT 14,6; "SRLLifi la sequ 

enza 4 .",:rt l?,6; "CflRlCR La sequ 

enza 5" 

55 LET dS="SeLeziona": LET xs= 
3; LET ys =2 ; INK 5; BR1GHT 1; PR 
PER 0: LET yc=159: GO SUB 9998- 
INK 0: PRPER 7: BRIGHT 0 

60 INPUT x 

70 IF x<0 OR X>5 THEN BEEP .5, 
-5: GO TO 60 

S0 IF X=0 THEN LET d$="fine": 
LET XS=S: LET ys=18: LET UC=3S; 
INK 0: PRPER 6: BRIGHT 1;'GO SUB 

9993; BRIGHT 0: INK 0; PRPER 7; 
STOP 

90 IF X=d- THEN GO TO 4-000 

100 IF X=5 THEN GO TO 50O0 

110 INPUT " Nl> mero della sequ enz 
a 7 " ; y 

120 IF y<l OR y>16 THEN GO TO 1 

10 

130 LET S =3114-1+ ( y *651 
14-0 LET L e n gh t =4- 
150 IF X=2 THEN GO TO 2000 

160 IF X =3 THEN GO TO 3000 

1000 REM SCRIUI LR SEQUENZA 
1010 CLS ; LET d $ = "SCRITTURO” ; L 
ET XS=2: LET yS=2 ; LET yc=l: GO 
oUB 9998: LET d$="sequenza "+STR 
S y: LET xs =2 : LET ys = l: LET yc = 
20: GO SUB 9998 
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software 


due lettere rende più lunga la scrittura, 
poi la presenza di una nota da tre lettere 
scombussola un pocheuino la lettura 
delle note in quanto non si ha una pre¬ 
cisa formattazione del nome associato 
alla nota, Per rendere il nostro pro¬ 
gramma un po' più internazionale ed 


Se Lesione 


anche più semplice abbiamo preferito 
adottare la notazione per lettere, quindi 
dovete abituarvi a chiamare C il DO, D 


il RE, L il MI, F il FA. G il SOL, A il 


1020 PRINT RT 4-, 0 ; "Pass o " ; RT 4-, © 
' r "Ot tave"; RT 4-, 16; "No ta"; RT 4-, 26 
“Du rata" 

103O INPUT "inserisci il numero 
di note " ; b : IF bt0 OR b>32 THEN 
GO TO 1030 

104-0 IF b=0 THEN GO TO 30 
1050 LEI step=0 
1050 POKE s,b 

1070 FOR a = 1 TO C2*b) -1 STEP 2 
1050 LET sharp=0 

1090 uet rests® 

1100 GO SUB 1500 

1110 IF rest=l THEN LET note=10© 
GO TO 1200 

1120 IF C2=67 THEN LET note=0 
1130 IF C&s68 THEN LET no te=2 
114-0 IF C 2 =69 THEN LET no te =4- 
1150 IF C 2=70 THEN LET no te=5 
1160 IF c2=71 THEN LET note=7 
1170 IF C 2 =65 THEN LET no te=9 
1160 IF c 2 =66 THEN LET note=11 
1190 LET note=note+sharp+ci+24- 
1300 POKE sta.note 
1310 POKE s+afl, lenaht 
1320 GO SUB 3170 
1330 NEXT a 

134-0 INPUT "Esegui o Menu " : w $ 
1250 IF W*="E" THEN GO TO 3000 
1360 IF U>* = "M" THEN GO TO 30 
1270 GO TO 1000 

1500 REM Routine di caricamento 
1510 INPUT "Ottava, Nota, Lunghe 
zza ";n $ 

1520 LET L=LEN n* 

1530 IF n$= n X" THEN GO TO 1000 
154-0 IF l <2 OR l >4. THEN GO TO 15 
00 

1550 LET L*=n$(l): IF C$="P" THE 
N LET r e s t = 1 : LET c4- = U«L n*t3): 
GO TO 1650 

1S60 LET c1=(URL n*(D)*12-36 
1570 IF clt-24 OR C1>12 THEN GO 
TO 1500 

1560 LET c3=CODE n$t2) 

1590 IF C2<54 OR C2>71 THEN GO T 
O 1500 

1600 IF 1=2 THEN RETURN 
1610 IF L < > 3 THEN LET Sharp = 1 : L 
ET C 4- =URL n*l4-) : GO TO 1650 
1620 LET c$=n$(3) 
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LÀ, B il Si, mentre rimane invariata la 
notazione per il diesis, ovvero il simbo¬ 
li no che assomiglia ad una finestra o alla 
griglia per giocare a Tris. 

La forma in cui dovete inserire i passi 
della sequenza sono: inserire la lun¬ 
ghezza della sequenza, da uno a trenta- 
due, poi inserire le note iniziando dal 
numero delfottava, poi la nota maiu¬ 
scola ed eventualmente il simbolo di 
diesis e la lunghezza. Per inserire una 
pausa basta inserire P seguita dalla 
lunghezza. 

Alla line della sequenza tornerete a] 
menu principale e potrete passare alla 
seconda opzione, ovvero l'esecuzione. Il 
suo sottomenu è molto esauriente, 
quindi fate le modifiche che ritenete 
necessarie alla vostra sequenza e buon 
ascolto. 

Vi può anche capitare dì voler vedere 
come è fatta una sequenza, quindi ecco 
la lerza opzione del menu principale. La 
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rappresentazione è identica a quella di 
scrittura cd è ovviamente limitata alla 
sequenza richiesta. Lavorare per niente 
non è mai piaciuto a nessuno, quindi 
ceco le ultime due opzioni per salvare su 
nastro le sequenze memorizzate ed 
ovviamente per recuperarle in un se¬ 
condo momento. Dato che per motivi di 
buon funzionamento tutte le sequenze 
sono state formattate ad una precisa 
dimensione, che poi è la massima a 


U15URLIZZfiZIONE 
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sedici note, il programma riserva un'a¬ 
rea di memoria di 1D40 bytes, esclusi 
quelli utilizzati per la routine super- 
caratteri. 

fina nota che vi riempirà di gioia è 
che anche se date RUN il programma 
non si scorda quello che avete fatto fino 
a quel momento (sempre che non lo 
abbiate spento) dato che non si ha Li Ri¬ 
piego di arrays e sìmili per la memoriz¬ 
zazione delle note. In questo pro¬ 
gramma la routine Su perca rat te ri svol¬ 
ge un ruolo abbastanza scenografico e 
fautore si è scatenato nella ricerca di 
sofisticate impaginazioni grafiche ed 
anche da un po’ di megalomania. Se 
volete, potete comunque stravolgere 
tulle le stampe, infatti si tratta solo di 
due parametri per la dimensione cd uno 
per la posizione, più la strìnga da 
stampare, 

Se ancora vi state domandando su 
che numero è apparso il tanto citato 
programma Supercaratteri allora vi 
suggeriamo di recuperare il numero di 
febbraio e provare a sfogliare le pagine 
fino a raggiungere la parte dedicata ai 
computer, trovato? 


ESECUZIONE 

s-e^uenza 2 


premi T per caHibiare tempo 


R per fermare 


N per una nuova sequenza 


M per tornare al menu 


1630 IF c * = ■*»" THEN LET 5harp=l: 
RETURN 

164-0 LET c4-=URL n*(3) 

1650 IF C 4 < 1 OR C4.>8 THEN GO TO 
1500 

1660 if c4< uenqht then LET ieng 

h t = C4- 

1670 RETURN 

2000 REM ESEGUI LO SEQUENZA 
2010 CLS : LET d * a ** ESECUZIONE " : 
LET XS=2: LET ys=2: LET yc=l; GO 
SUB 9998 : LET dt = "iequenia "+ST 
R$ y; LET XS*2: LET ys=l: LET yc 
=20: GO SUB 9998 

2030 PRINT RT 7,3;"premi T per c 
ambiare tempo";RT 10 , 10 ;"fl per F 
ermare"; RT 13,4.; W N per una nuova 
sequenza ";rt ie,5;"M per tornar 
e al menu" 

2030 LET S =3114-1 + I65*y ) 

304-0 LET b=PEEK S 
2050 PRINT RT 21.0; "Tempo t 
2060 POR a =1 TO <2*b) -1 STEP 2 
3070 LET note=PEEK (s+a) 

2080 LET icnght=PEEK (s+a+l) 

2100 IF no te=100 THEN PAUSE leng 
ht*t/2-0.037: GO TO 2130 
2110 BEEP lUlenght) /100-0,G>37,n 
ole -24- 

2130 IF INKEY$="m” THEN GO TO 30 
214^0 IF INKEY$ = "a" THEN INPUT "S 
chiaccia ENTER per continuare 
— $ 

2150 IF INKEY$="t" THEN INPUT "T 
eropo t: GO TO 2000 

2160 IF INKEYt=”n" THEN INPUT “N 
unterò della sequenza 7 “;y: GO T 
O 2000 
2165 NEXT a 
2170 GO TO 2060 

3000 REM MOSTRR LR SEQUENZA 
SfcBS CLS 

3010 LET dt = "UI5UflLIZZflZIONE" : L 
ET XS=2: LET ys=2: LET yc=l: GO 
SUB 9398: LET d*="SequenZa "+3TR 
$ y: LET xs=2: LET ys=l: LET yc= 
20: GO SUB 9998 

304-0 PRINT RT 4-, 0; "p a SS Q " ; RT 4-> 8 
; "o t t ava ** ; RT 4,16; "neta’^AT 4-,28 
;"durata" 
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3©50 LET £=31141+ (y*65) 

3000 LET b sPEEK S 
3070 LET Step=0 

303© POR 3-1 TO 12*b)-1 5TEP 2 
3090 LET note =PEEK is+a> 

310® LET Unght =PEEK (s+a + 1) 

3110 GO SUB 3170 
3120 NEXT a 

3130 INPUT 11 Esegui , Nuova seque 
nza o Menu M ;l$ 

31-40 IF L$ = "E" THEN GO TO 2000 
3150 IF THEN GO TO 3© 

3160 IF THEN INPUT "NufilÈf 


o del 

la 

sequenza ■? " : y : 

GO TO 3© 

00 





3165 

IF 

l . 

THEN GO TO 

3130 

3170 

REM 

visus 

Lizzazione 


3180 

LET 

s tep = 

s tep -»-l 


3185 

XF 

notes100 THEN LET r $ = M pa 

usa*": 

LET 0=0: 

GO TO 3340 

3190 

LET 

obINT 

fnote/12) 

+ 1 

3200 

LET 

no te = 

note - t (o - lì *12) 

3210 

IF 

note =0 

THEN LET 

rt = ,, C" 

3220 

XF 

no te =1 

THEN LET 

r $ = ” 

3230 

IF 

note =2 

THEN LET 

r $ = " D’* 

324-0 

IF 

note =3 

THEN LET 

r £ = 

3250 

IF 

note = 4- 

THEN LET 

r $ = "E" 

3260 

IF 

n o t e =5 

THEN LET 

rt = “ F" 

3270 

IF 

note =6 

THEN LET 


3280 

IF 

no te =7 

THEN LET 

f S^'G" 

329© 

IF 

note-S 

THEN LET 

c ì = "g a i> 

3300 

IF 

note =9 

THEN LET 

r$ = M fì n 

3310 

IF 

HO le-1© THEN LET 

r 

3320 

IF 

no te = 11 THEN LET 

r $ = "8" 

3340 

PRINT TflB 

1; step;TflB l©;o;T 


RB 18; r$;TRB 29; lenght 
3350 RETURN 

4000 REM 5RLUR LE SEQUENZE 
4010 CLS . LET d$ = '‘t ras ferimento 
sequenze su nastro”: LET xs=l: 
LET ys=:2: LET y C =30 : INK 2 : PRFE 
R 0: BRIGHI 1: FLR5H 1: GO SUB 9 
996: FLR5H 0: BRIGHT 0: INK 0: P 
RPER ? 

4-02© 5RUE kl SEQUENZE 11 CODE 31206,1 
040 


4030 LET d$ 

= ,l conc Luso 11 : 

LET 

XS 

= 4 

: LET ys=2: 

LET 

y c = 140 : 

GO 

SUB 

9 

99S 

4-04-0 FOR K = 

1 TO 

3: FOR 

j =10 

TO 


5 STEP -1: 

BEEF 

» 05 j j : 

NEXT 

J : 

N 


EXT K 

4050 GO TO 30 

5000 REM CRRTORMENTO DA NASTRO 
5010 CLS : LET dì = ’'cari camento s 
sequenze da nastro": LET xs=i; le 
T ys=2; LET yc=60 : INK 2: PAPER 
0: BRIGHI 1: FLRSH 1: GO SUB 999 
3: FLRSH O: BRIGHI 0: INK 0; PRP 
ER 7 

5020 LORD "SEQUENZE"CODE 31206,1 
04-0 

8030 LET dt^ 1 'concluso": LET xs=4 
: LET ys=£: LET yc=140; GO SUB 9 
99 B 

5040 GO TO 30 
5998 LET X=( 25 b-XS+B+LEN 
9999 LET a =23306 : POKE a ,x ■ POKE 
3+1,yc: POKE a + 2 ,X S : POKE a +3 , M 

S; POKE 3 + 1 . 6 , LET 3 = a +4 : FOR i = 
1 TO LEN POKE 3+1,0005 d$(i) 

: NEXT j. POKE a+1,255: RRNDOMIZ 
E U5R 32256: RETURN 


Ci scusiamo per la mole del pro¬ 
gramma ma abbiamo preferito fare un 
bel lavoro completo {nei limiti del pos¬ 
sibile) piuttosto che un penoso abbozzo. 
Alcuni avvertimenti per i patiti delle 
modifiche: sappiamo bene che vi piace¬ 
rebbe poter eseguire in sequenza le 
sedaci musichine memorizzabili, ma 
dato che almeno durante l'esecuzione 
era richiesta una certa regolarità, senza 
salti, non è stato possibile inserire un 
ulteriore ciclo per far eseguire tutto in 
fila. Se non vi sta a cuore la precisione 


trasferimento sequenze su nastro 



potete anche aggiungere una sesta 
opzione «esegui tutto». 

Ogni sequenza occupa la bellezza di 
sessantacmque bytes, tutto compreso, 
che non è poi cosi male. Sono solo due 
bytes per nota memorizzala. Uno per 
l'ottava, un altro per la nota, airinizic 
dell’area di memoria ce nV poi un altro 
che indica quanti step ha tutta la 
sequenza. In pratica il nostro Bccp- 
quencer ha una capacità di memoria di 
ben cinquecento venti note ri partì bili in 
sedici gruppi da trentadue, Ci spiace clic 
quando si utilizza una sequenza un po' 
lunga si perdano le prime righe quando 
interviene lo scroll automatico, ma d'al¬ 
tra parte era peggio se limitavamo a 
sedici il numero di note memorizzabili 
per sequenza. 

BeepOuencer 
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